VBA 地址拆分
Sub test()
Dim s, street, number
s = "号角路55号307室"
street = InStr(s, "路")
number = InStr(street, s, "号")
Cells(2, 3) = Left(s, street)
Cells(2, 4) = Mid(s, street + 1, number - street)
Cells(2, 5) = Right(s, Len(s) - number)
End Sub
Sub test()
Dim s, street, number
s = "号角路55号307室"
street = InStr(s, "路")
number = InStr(street, s, "号")
Cells(2, 3) = Left(s, street)
Cells(2, 4) = Mid(s, street + 1, number - street)
Cells(2, 5) = Right(s, Len(s) - number)
End Sub